home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 April / 1985-04.d64 / hi res dump (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  63 lines
  1. 10 print"[147]":print tab(12)"1526 hi-res dump"
  2. 20 print:print"please wait ...":print
  3. 30 read ln,sa,ea:ln=ln+30
  4. 40 for i=0 to ea-sa
  5. 50 read by:poke sa+i,by:sum=sum+by
  6. 60 if int((i+1)/8)*8<>(i+1) then90
  7. 70 read cs:if cs<>sum then120
  8. 80 sum=0:ln=ln+10
  9. 90 next
  10. 100 if int(i/8)*8<>i then read cs:if cs<>sum then120
  11. 110 print:print"type sys49152 to begin hi-res dump":end
  12. 120 print"**** error in line";ln
  13. 130 data 100
  14. 140 data 49152
  15. 150 data 49521
  16. 160 data 169,18,133,10,32,33,192,32,619
  17. 170 data 67,192,32,81,192,76,84,193,917
  18. 180 data 32,177,192,162,8,230,3,208,1012
  19. 190 data 2,230,4,202,208,247,76,65,1034
  20. 200 data 193,173,0,221,41,3,73,3,707
  21. 210 data 160,6,10,136,208,252,133,4,909
  22. 220 data 173,24,208,41,8,240,7,24,725
  23. 230 data 169,32,101,4,133,4,169,0,612
  24. 240 data 133,3,96,24,165,3,105,64,593
  25. 250 data 133,13,165,4,105,31,133,14,598
  26. 260 data 96,169,0,32,189,255,169,4,914
  27. 270 data 162,4,160,255,32,186,255,32,1086
  28. 280 data 192,255,32,204,255,162,4,32,1136
  29. 290 data 201,255,169,13,32,210,255,169,1304
  30. 300 data 0,32,189,255,169,6,162,4,817
  31. 310 data 160,6,32,186,255,32,192,255,1118
  32. 320 data 32,204,255,162,6,32,201,255,1147
  33. 330 data 169,18,32,210,255,169,0,32,885
  34. 340 data 189,255,169,5,162,4,160,5,949
  35. 350 data 32,186,255,32,192,255,32,204,1188
  36. 360 data 255,162,4,32,201,255,169,254,1332
  37. 370 data 32,210,255,169,141,32,210,255,1304
  38. 380 data 96,32,204,255,162,5,32,201,987
  39. 390 data 255,162,0,181,240,32,210,255,1335
  40. 400 data 232,224,8,208,246,169,13,32,1132
  41. 410 data 210,255,32,204,255,162,4,32,1154
  42. 420 data 201,255,166,10,240,8,169,29,1078
  43. 430 data 32,210,255,202,208,248,169,254,1578
  44. 440 data 32,210,255,169,141,32,210,255,1304
  45. 450 data 230,10,165,10,201,58,208,9,891
  46. 460 data 169,18,133,10,169,13,32,210,754
  47. 470 data 255,96,169,0,133,240,133,241,1267
  48. 480 data 133,242,133,243,133,244,133,245,1506
  49. 490 data 133,246,133,247,133,15,169,128,1204
  50. 500 data 133,16,169,0,133,17,164,17,649
  51. 510 data 177,3,37,16,240,16,169,128,786
  52. 520 data 166,17,240,4,74,202,208,252,1163
  53. 530 data 166,15,21,240,149,240,230,17,1078
  54. 540 data 165,17,201,8,208,224,70,16,909
  55. 550 data 230,15,165,15,201,8,208,210,1052
  56. 560 data 96,165,3,197,13,208,10,165,857
  57. 570 data 4,197,14,208,4,32,231,255,945
  58. 580 data 0,76,13,192,169,0,133,17,600
  59. 590 data 164,17,177,3,208,14,230,17,830
  60. 600 data 165,17,201,8,208,242,32,232,1105
  61. 610 data 192,76,19,192,32,250,192,76,1029
  62. 620 data 16,192,208
  63.